1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
29 "THEWORDMARKET.40" P8
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
150 UZ=1:UV%=PEEK(UT):GOTO300
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
299 :
300 PRINT"[147]":POKEUT,UU%:POKEUY,11:POKEUX,11
305 PRINT"                M E N U"
310 PRINT"    --------------------------------"
315 PRINT"       1.   COMMENCEZ  FRENCH DRILL "
320 PRINT"       2.   GUIDE DE L'ELEVE"
325 PRINT"       3.   GUIDE DU PROFESSEUR"
330 PRINT"       4.   ABANDON"
335 PRINT"    --------------------------------":GOSUB790:GOSUB760
340 PRINT"       APPUIE SUR UNE TOUCHE (1-4) ";
345 UL=1:US$="1234"
347 GOSUB35:US$=""
350 ONVAL(UR$)GOSUB1000,400,500,2000
355 GOTO300
399 :
400 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
405 PRINT"             [201][206][211][212][210][213][195][212][201][207][206][211] [146]
415 [153]"OPEN (null)OUS EPROUVERONS TA CAPACITE POUR"
418 [153]" TRADUIRE DES MOTS ATNNGLAIS ORDINAIRE"
420 [153]" TRADUIRE DES MOTS ATNNGLAIS ORDINAIRE"
425 [153]" A ASCRANCAIS.  (null)E MOT ATNNGLAIS SE MONTERA"
430 [153]" SUR L'ECRAN.  (null)YPE 'LE' OU 'LA' ET LE"
435 [153]" MOT TRADIUE."
440 [153]" VAL(null)ATN(null)(null)(null)VAL:LENAT:  LE CHAT
445 GOSUB835
450 PRINT"[147][159] [193]PRES TROIS REPONSES INCORRECT, LA"
455 PRINT" REPONSE CORRECT SA MONTERA. "
460 PRINT" [206]OUS PRESENTERONS UN REVUE APRES "
465 PRINT" LE FIN DE L'EPREUVE POUR LES "
470 PRINT" QUESTIONS QUE TU AS MANQUE."
490 GOSUB835
495 RETURN
499 :
500 PRINT"[147]":POKEUT,UL%:POKEUY,11:POKEUX,11
502 PRINT"[159]    [193]U MEILLEUR DE NOTRE CONNAISSANCE"
503 PRINT" CE LOGICIEL RELEVE DU DOMAINE PUBLIC."
504 PRINT" [211]I CE N'EST PAS LE CAS, VEUILLE"
505 PRINT" COMMUNIQUE AVEC:"
506 PRINT"      [195][207][205][205][207][196][207][210][197][160][194][213][211][201][206][197][211][211][160][205][193][195][200][201][206][197][211]"
507 PRINT"          3370 [208]HARMACY [193]VE.
508 [153]"          ATNGINCOURT, (null)NTARIO"
509 [153]"          LENANADA, (null)1(null) 2(null)4"
510 [153]"          (416) 499-4292"
511 [141]835
512 [153]"LOADOPEN   (null)OM DE PROGRAMME:  ASCRENCH STR$RILL "
513 [153]"        VALCRIT PAR  : PEEK. MID$. LEFT$AMILTON
514 PRINT"       [210]EVISE PAR  : [202]AN [211]AWCZAK
515 [153]"       (null)EVISE PAR  : (null)ANDRA PEEKLANKENFELDT
516 PRINT"       [210]EVISE PAR  : [194]ILL [195]UMBERLAND
517 [153]"                  POUR
519 PRINT"            LE [195]OMMODORE 64"
590 GOSUB835
595 RETURN
599 :
600 REM ** PROGRAM MOD INST **
610 PRINT" [212]HIS PROGRAM MAY BE MODIFIED BY"
615 PRINT" CHANGING THE DATA STATEMENTS ON LINES"
620 PRINT" 1780-1810.  [204]INES 1780-1790 CONTAIN"
625 PRINT" [197]NGLISH WORDS AND LINES 1800-1810"
630 PRINT" CONTAINS THE CORRECT [198]RENCH TRANSLA-    TION."
631 GOSUB835:GOSUB850
633 PRINT" [212]HE VARIABLE '[212]9' IN LINE 1750"
634 PRINT" CONTROLS THE NUMBER OF ERRORS THE"
636 PRINT" STUDENT MAY MAKE BEFORE THE CORRECT     ANSWER IS GIVEN."
699 REM ** TO USE 8032 LOAD CBM4032 **
700 REM <YES>
705 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
710 POKE54296,15:POKE54277,42:POKE54278,250
715 POKE54276,23:POKE54273,23:POKE54272,191
720 FORTC=1TO200:NEXT:POKE54276,32:FORTC=1TO250:NEXT
725 POKE54296,0:RETURN
730 REM <NO>
735 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
740 POKE54296,15:POKE54277,18:POKE54278,242
745 POKE54276,33:POKE54273,4:POKE54272,48
750 FORTC=1TO300:NEXT:POKE54276,32:FORTC=1TO400:NEXT
755 POKE54296,0:RETURN
760 REM <BLIP>
765 SS=54272:FOREE=SSTOSS+28:POKEEE,0:NEXT
770 POKE54296,6:POKE54277,42:POKE54278,250
775 POKE54276,23:POKE54273,23:POKE54272,191
780 FORTC=1TO30:NEXT:POKE54276,32:FORTC=1TO50:NEXT
785 POKE54296,0:RETURN
790 FORTB=1TO500:NEXT:RETURN
791 FORTB=1TO1000:NEXT:RETURN
792 FORTB=1TO2000:NEXT:RETURN
799 :
800 PRINT"[147]";:POKEUT,UU%:POKEUY,1:POKEUX,1
801 FORI=1TO38:PRINT" [146]";:NEXT
802 FORI=1TO22:PRINT"[157] [146]";:NEXT
803 FORI=1TO37:PRINT"[157][157] [146]";:NEXT
804 FORI=1TO22:PRINT"[145][157] [146]";:NEXT
805 PRINT"[169]  [146]
806 [153]" WAIT   WAITSTEP
807 PRINT" [146]  [163][223][146] O M M O D O R E
808 [153]"(null)  WAIT
809 PRINT"EDUCATIONAL
810 [153]"SOFTWARE
811 PRINT"1983":GOSUB791:GOSUB760
812 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]"UC$:UI=0
813 GETUI$:IFUI$<>" "THENUI=UI+1:IFUI<250THEN813
814 GOTO300
835 GOSUB791:GOSUB760
837 POKEUN,0:PRINTLEFT$(UD$,24);"[154] [194]ARRE D'ESPACEMENT POUR CONTINUER[146] [155]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,3);"                              "
865 UH=0:PRINT"":RETURN
899 :
900 US=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UB=2048:UX=53280:UD=2064
902 UT=53272:UU%=21:UL%=23:UP%=2151:UN=198:UY=53281:UU=2199:UE=2087
904 UC$=CHR$(155):UV=1214:UF=196:UV=2238
905 UD$="":UP$="                                      "
906 DIM Q$(20),A$(20)
909 RETURN
910 GOSUB900:PRINT"[147] "
920 GOSUB800:GOTO300
956 :
999 :
1000 PRINT"[147]"UC$;:RESTORE:POKEUY,0:POKEUX,0
1005 FORI=1TO10:FL(I)=0:NEXT
1020 PRINT"[147]":UP=0:UG$="[209]UESTION #"
1025 POKEUT,UL%
1030 FORW=1TO10:PRINT"[157]":NEXT
1060 REM   VOCABULARY DRILL WITH RANDOM
1070 REM   PRESENTATION OF DATA, REVIEW
1080 REM   OF ERRORS, & SCORE TOTALLED
1090 REM   CHANGE CONTENTS & LIMITS IN
1100 REM   DATA STATEMENTS 1780-1810
1110 REM    ERROR LIMITS SET (1750)
1130 READ T9:IF T9>4 THEN T9=4
1165 GOSUB850
1190 GOSUB 1830
1200 LET S=0
1210 LET K=0
1220 REM       RANDOM READING
1230 FOR M=1TO 10
1240 READ Q$(D%(M)):NEXT M
1250 FOR M=1 TO 10
1260 READ A$(D%(M)):NEXT M
1270 REM    CHECK ANSWER AND RESPOND
1280 FOR I=1 TO 10
1290 LET T=0
1293 PRINT" [212]RADUISEZ LES MOTS SUIVANTS: ":GOSUB760
1300 PRINT" "Q$(I)": ";
1310 UL=20:US$="":GOSUB35:B$(I)=UR$
1320 IF A$(I)<>B$(I)  THEN 1400
1330 IF T>1 THEN 1350
1340 LET S=S+(T9-T)
1350 PRINT"[158] [195]'EST CORRECT! [155]":GOSUB700
1380 GOTO 1535
1390 REM
1400 LET T=T+1
1410 IF T<T9 THEN 1480
1420 REM    NOTE ERRORS FOR REVIEW
1430 LET K=K+1
1440 LET Q$(K)=Q$(I)
1450 LET A$(K)=A$(I)
1460 LET C=K
1470 IFT>=T9THEN1500
1480 PRINT " [197]SSAYEZ DE NOUVEAU--":GOSUB730
1490 GOTO 1300
1500 GOSUB760:GOSUB760
1510 PRINT "[153] [214]OICI LA REPONSE CORRECT: ";A$(I);"[155]"
1535 GOSUB835:GOSUB850
1540 NEXT I
1550 IF K=0 GOTO 1720
1560 REM      REVIEW MISTAKES
1570 UP=0:UG$="[210]EVIEW #":GOSUB850
1610 FOR K=1 TO C
1612 PRINT " [204]A REVISION [146]"
1615 PRINT
1617 PRINT " [212]RADUISEZ ENCORE UNE FOIS":GOSUB760
1620 PRINT
1630 PRINT " "Q$(K)":                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
1640 UL=20:US$="":GOSUB35:B$(K)=UR$
1650 IF A$(K)<>B$(K)THEN 1680
1670 PRINT "[158] [195][207][210][210][197][195][212]"           :GOSUB700:GOTO 1710
1680 PRINT
1690 PRINT " [214]OICI LA REPONSE CORRECT: "A$(K)"[145][145][145][145]":GOSUB760:GOSUB760
1700 GOTO 1620
1710 PRINT :GOSUB835:GOSUB850:NEXT K
1720 LET S1=S/(20): PRINT"[147]"
1730 PRINTTAB(9)"[214]OUS AVEZ GAGNE"INT(S1*100+.5)"[157]%":PRINTTAB(14)"[193]U REVOIR!"
1740 GOSUB835:GOTO2000
1750 DATA 3
1780 DATA STEAK,CHEESE,FISH,CAKE,ICE CREAM
1790 DATA CARROT,PEAR,PEACH,BREAD,COFFEE
1800 DATA LE BIFTECK,LE FROMAGE,LE POISSON,LE GATEAU,LA GLACE
1810 DATA LA CAROTTE,LA POIRE,LA PECHE,LE PAIN,LE CAFE
1820 GOSUB835:RETURN
1830 REM    RANDOM ORDER SELECTION
1850 X=RND(-TI)
1860 FOR M=1 TO 10
1870 C%=10*RND(1)+1
1880 IF FL(C%)<>0 GOTO 1870
1890 D%(M)=C%:FL(C%)=1
1900 NEXT M
1910 RETURN
2000 PRINT"[147][158] [217]OU HAVE A CHOICE:
2010 [153]" (null)RESS  (null) WAIT TO PLAY AGAIN
2020 PRINT" [208]RESS  [205] [146] TO RETURN TO DISK MENU
2030 [161]R$[139]R$[179][177]"P"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[175]R$[179][177]"(null)"[167]2030
2040 [139]R$[178]"P"[167] [138]
2045 [139]R$[178]"(null)"[167] [138]
2050 [153]"LOAD(null)ETURNING TO THE DISK MENU
2060 LOAD"MENU",8
2070 RUN
2080 END
3000 REM WHC 93:10:20